home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / MONDY20.M3 < prev    next >
Encoding:
Text File  |  1996-04-01  |  4.0 KB  |  140 lines
  1. name Monarch Dyna 20M
  2.  
  3. % 00
  4. $ >7
  5. N >4
  6. G 2
  7. g 2 G
  8. X ->3.>4
  9. Y ->3.>4
  10. A -1 X
  11. B -1 Y
  12. R ->3.>4
  13. Z ->3.>4
  14. U ->3.>4 Z
  15. I ->3.>4
  16. J ->3.>4
  17. V >3.>4 I
  18. W >3.>4 J
  19. Q ->3.>4
  20. P ->3.>4
  21. F >3.>2
  22. K ->3.>4
  23. D 2
  24. S 2
  25. T 2
  26. E 2
  27. M 2
  28.  
  29. ModalGs 0 1 2 3 73 74 76 80 81 82 83 84 85  # List of g codes that are modal    
  30.  
  31. Sequence#s N 0 1 1                    # Char, freq, incr & start          
  32. First#? N                             # Y or N  'Output 1st sequence no.  
  33.  
  34. HCode X                               # X or X U  'Horizontal char.       
  35. VCode Y                               # Y or Y V  'Vertical char.         
  36. Dcode Z                               # Depth char.                       
  37. FeedCode F                            # Feed rate char.                   
  38.  
  39. Comment ( )                           # Begin End comment char.           
  40.  
  41. Spaces? Y                             # Y or N  'Spaces between words     
  42.  
  43. Spindle 3 4 5                         # Cw, ccw & stop m codes            
  44. Coolant 8 9 7                         # On, Off & Mist m codes            
  45. DComp 41 42 40                        # Left, Right & Cancel m codes      
  46. LComp 43 49                           # On & Off codes                    
  47.  
  48. CtrIncremental? Y                     # Y or N  'Inc or abs I & J         
  49. ByQuadrants? N                        # Y or N  'Break arcs at quadrants  
  50.  
  51. Inc/Abs G 91 90                       # Inc & Abs char. & values          
  52.  
  53. Work G                                # Work offset register              
  54.  
  55. CtrCode I J                           # I J or R or I J K L               
  56. Helical? N
  57.  
  58. Feed G1                             # Linear move                       
  59. Rapid G0                            # Rapid positioning word            
  60. Cw G2                               # Circular move clockwise           
  61. Ccw G3                              # Circular move counter clockwise   
  62.  
  63. RevSigns Z R U                        # List of letters to reverse signs  
  64.  
  65. UppercaseComments? Y                  # Y or N 'Require uppercase comments
  66.  
  67. Drill                                 # Drilling canned/manual cycle      
  68. G81 X[H] Y[V] Z[D] R[Vclear] D[Lcomp] F[FRate]
  69. end cancel
  70.  
  71. Peck                                  # Pecking canned/manual cycle       
  72. G83 X[H] Y[V] Z[D] Q[VBite] R[Vclear] D[Lcomp] F[FRate]
  73. end cancel
  74.  
  75. Tap                                   # Tapping canned/manual cycle       
  76. G84 X[H] Y[V] Z[D] R[Vclear] D[Lcomp] F[FRate]
  77. end cancel
  78.  
  79. LTap                                  # Left handed tapping cycle         
  80. G74 X[H] Y[V] Z[D] R[Vclear] D[Lcomp] F[FRate]
  81. end cancel
  82.  
  83. Ream                                  # Reaming canned/manual cycle       
  84. G85 X[H] Y[V] Z[D] R[Vclear] D[Lcomp] F[FRate]
  85. end cancel
  86.  
  87. Bore                                  # Boring canned/manual cycle        
  88. G86 X[H] Y[V] Z[D] R[Vclear] D[Lcomp] F[FRate]
  89. end cancel
  90.  
  91. Back                                  # Back boring canned/manual cycle   
  92. G87 X[H] Y[V] Z[D] R[Vclear] D[Lcomp] F[FRate]
  93. end cancel
  94.  
  95. Cancel                                # Cancel a canned/manual cycle      
  96. G80
  97. end
  98.  
  99. StartCode                             # Start of the program              
  100. %00
  101. $[Program#]
  102. G75
  103. End
  104.  
  105. 1stToolChange                         # First tool change                 
  106. N[Block] G90 M[Direct] S[Speed]
  107. N[Block] G0 X[H] Y[V] T[Tool] E1 M6
  108. G87 R[Rplane] Z[Vclear] D[Lcomp]
  109. End
  110.  
  111. Infeed                                # Enable cutter comp                
  112. G1 X[H] Y[V] F[FRate]
  113. g91
  114. G1 A0 B0
  115. G[Side] V[HVector] W[VVector] D[DComp]
  116. G90
  117. G86 R[D] U[D] F[Frate]
  118. end
  119.  
  120. Outfeed                               # Disable cutter comp               
  121. G87 R[Vclear] Z[Vclear]
  122. G40
  123. end
  124.  
  125. ToolChange                            # Secondary tool changes            
  126. M9
  127. M1
  128. G0 Z[Rplane]
  129. N[Block] G90 M[Direct] S[Speed]
  130. N[Block] G0 X[H] Y[V] T[Tool] E1 M6
  131. G87 R[Rplane] Z[Vclear] D[Lcomp]
  132. End
  133.  
  134. EndCode                               # End of the program                
  135. M30
  136. %00
  137. End
  138.  
  139.  
  140.